#install.packages("png");install.packages("plm");insta..packages("AER)


### REPLACE wd with the location of our replication folder on your harddrive  ###
  

### Figures outupt into Figures output

### Table 3 goes in the table 3 folder


wd<-"~/Dropbox/learning_democracy/paper/APSRsubmission/final_submission/replication_files"



dirs<-paste(wd,paste("/Figures/Figure_",c(1:6,8:9),sep=""),sep="")
dirs<-c(dirs, paste(wd,"/Table_3",sep=""))


scripts<-c(paste(paste("figure_",c(1:6,8:9),sep=""),".R",sep=""),"table_3.R")



for(i in 1:length(dirs)){
  
  setwd(dirs[i])
  
  source(scripts[i])
  
  
}




